home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC24.DEF < prev    next >
Encoding:
Text File  |  1995-11-22  |  3.7 KB  |  142 lines
  1.  
  2.  
  3.                ╔════════════ TIME SHEET CORRECTIONS ═══════════╗
  4.                ║Enter Line No to correct                       ║
  5.                ╠═══════════════════════════════════════════════╣
  6.                ║Client                                         ║
  7.                ║                                               ║
  8.                ║Done by                                        ║
  9.                ║                                               ║
  10.                ║Description                                    ║
  11.                ║                                               ║
  12.                ║Price                                          ║
  13.                ╚═══════════════════════════════════════════════╝
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.                    Correct the entry and press F2 to file.
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. ╠The line No. can be found in List clients time sheet or daily entries.          
  90. *14No                  YesN/AInteger       YesField      N/AYes                                 4file                YesN/AText          YesField      N/AYes                                !30Customer            No N/AText          No Field      N/AYes                                !20Staff               YesN/AText          YesField      N/AYes                                
  91. !30misc                No N/AText          YesField      N/AYes                                 ! 4Price               YesN/AFixed Point   YesField     2N/AYes                                 3oldfile             No N/AText          No Invisible  N/AYes                                20oldstaff            No N/AText          No Invisible  N/AYes                                30oldcustomer         No N/AText          No Invisible  N/AYes                                     4oldprice            No N/AFixed Point   No Invisible 2N/AYes                                
  92. 30oldmisc             No N/AText          No Invisible  N/AYes                                 no[clearfields]
  93. if(lookup(customers,file)= blank,oldfile,lookup(customers,file))
  94. if(lookup(customers,name)= blank,oldcustomer,lookup(customers,name))
  95. if(lookup(staff,name)= blank,oldstaff,lookup(staff,name))
  96. default(lookup(records,misc))
  97. default(lookup(records,price))
  98. lookup(records,file)
  99. lookup(records,staff)
  100. lookup(records,customer)
  101. Lookup(records,price)
  102. retest if(no <> blank and lookup(records,misc) = blank,blank[beepWrong Line Number - Not a Miscellaneous Entry!cursor no],lookup(records,misc))
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136. f !#$%&')*+,-./
  137. 
  138. 
  139. 
  140. 
  141. 
  142. 3210 "#$%&'( !"#$&'(*+,-.01346789:           ┬Correct Misc        YYNY≡?